home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Games / Marblelous2 / Install < prev    next >
Text File  |  1999-09-10  |  5KB  |  102 lines
  1. ; Marblelous 2 Installer by Frank Otto
  2.  
  3. (complete 0)
  4. (if (= @language "deutsch")
  5. (set
  6.     #askwhere "Wo soll das Marblelous 2 Verzeichnis installiert werden?"
  7.     #ready "\nDie Installation ist fertig.\nMarblelous 2 beinhaltet eine Seriennummer.\nBitte kopieren Sie das Spiel nicht!\nCopyright © 1998/99 APC&TCP, Andreas Magerl & Frank Otto\nSie finden Marblelous 2 im Verzeichnis:\n"
  8.     #aga "Sie sind stolzer Besitzer des AGA-Chipsets.\nSollen daher die 256-farbigen AGA-Grafiken oder die 32-farbigen (OCS/ECS) installiert werden?"
  9.     #ecs "Sie besitzen leider nicht das AGA-Chipset und sollten daher die 32-farbigen ECS-Grafiken installieren. Ansonsten kommt es zu Grafikfehlern oder einem Systemabsturz."
  10.     #rtg "Soll die RTG-Version von Marblelous 2 installiert werden, um das Spiel auf Grafikkarten benutzen zu können?"
  11.     #manual "Welche Sprache(n) für die Anleitung soll(en) installiert werden?"
  12.     #ger "Deutsch"
  13.     #eng "Englisch"
  14.     #aminet "Von dieser CD können Sie leider nur die AGA-Version spielen.\nDie ECS-Version müssen Sie auf Festplatte installieren."
  15. )
  16. (set
  17.     #askwhere "Where do you want to install the Marblelous 2 directory?"
  18.     #ready "\nFinished!\nMarblelous 2 contains a serial number.\nPlease do not copy this game!\nCopyright © 1998/99 APC&TCP, Andreas Magerl & Frank Otto\nYou'll find Marblelous 2 in the directory:\n"
  19.     #aga "You are proud owner of the AGA chipset.\nDo you want to install the AGA graphics (256 colours) or the ECS/OCS graphics (32 colours) ?"
  20.     #ecs "Unfortunately you do not own the AGA chipset so you are advised to install the ECS graphics, otherwise corrupt graphics or a system chrash will be the result."
  21.     #rtg "Do you want to install the RTG version of Marblelous 2 for use with graphics boards?"
  22.     #manual "Which languages for the manual do you want to install?"
  23.     #ger "German"
  24.     #eng "English"
  25.     #aminet "You can only play the AGA version from this CD.\nYou must install the game on hard disk if you prefer ECS."
  26. ))
  27.  
  28. (message #aminet)
  29.  
  30. (set #chiprev (database "chiprev"))
  31. (complete 1)
  32. (if (= #chiprev "AA")
  33. (set choice1
  34. (askchoice (prompt #aga) (help @askchoice-help) (choices "AGA (A1200/A4000)" "ECS") (default 0))
  35. ))
  36. (if (= #chiprev "ECS")
  37. (set choice1
  38. (askchoice (prompt #ecs) (help @askchoice-help) (choices "AGA (A1200/A4000)" "ECS") (default 1))
  39. ))
  40. (if (= #chiprev "AGNUS")
  41. (set choice1
  42. (askchoice (prompt #ecs) (help @askchoice-help) (choices "AGA (A1200/A4000)" "ECS") (default 1))
  43. ))
  44. (complete 2)
  45. (set choice2
  46. (askbool (prompt #rtg) (help @askchoice-help))
  47. )
  48. (complete 3)
  49. (set choice3
  50. (askoptions (prompt #manual) (choices #ger #eng) (help @askoptions-help))
  51. )
  52. (complete 4)
  53. (set name
  54.     (askdir (prompt #askwhere sounddir) (help @askdir-help) (default @default-dest))
  55. )
  56. (complete 5)
  57. (set fullname (tackon name "Marblelous2/"))
  58. (makedir fullname (infos))
  59. (complete 6)
  60. (copyfiles (source "Marblelous2") (infos) (dest fullname))
  61. (complete 8)
  62. (copyfiles (source "display.iff") (dest fullname))
  63. (complete 10)
  64. (copyfiles (source "objects.iff") (dest fullname))
  65. (complete 15)
  66. (copyfiles (source "Nr") (dest fullname))
  67. (complete 20)
  68. (set sounddir (tackon fullname "Sound/"))
  69. (makedir sounddir)
  70. (complete 25)
  71. (set leveldir (tackon fullname "Levels/"))
  72. (makedir leveldir)
  73. (complete 30)
  74. (copyfiles (source "Sound") (all) (dest sounddir))
  75. (complete 35)
  76. (if (= choice1 1) (copyfiles (source "ECS/background.iff") (dest fullname)))
  77. (if (= choice1 1) (copyfiles (source "ECS/title.iff") (dest fullname)))
  78. (complete 40)
  79. (copyfiles (source "Levels") (all) (dest leveldir))
  80. (complete 50)
  81. (copyfiles (source "Editor") (infos) (dest fullname))
  82. (complete 70)
  83. (if (= choice1 0) (copyfiles (source "background.iff") (dest fullname)))
  84. (if (= choice1 0) (copyfiles (source "title.iff") (dest fullname)))
  85. (complete 80)
  86. (if (= choice2 1) (copyfiles (source "Marblelous2RTG") (infos) (dest fullname)))
  87. (complete 90)
  88. (if (= choice3 1) (copyfiles (source "Anleitung.guide") (infos) (dest fullname)))
  89. (if (= choice3 1) (copyfiles (source "Anleitung.asc") (infos) (dest fullname)))
  90.  
  91. (if (= choice3 2) (copyfiles (source "Manual.guide") (infos) (dest fullname)))
  92. (if (= choice3 2) (copyfiles (source "Manual.asc") (infos) (dest fullname)))
  93.  
  94. (if (= choice3 3) (copyfiles (source "Anleitung.guide") (infos) (dest fullname)))
  95. (if (= choice3 3) (copyfiles (source "Anleitung.asc") (infos) (dest fullname)))
  96. (if (= choice3 3) (copyfiles (source "Manual.guide") (infos) (dest fullname)))
  97. (if (= choice3 3) (copyfiles (source "Manual.asc") (infos) (dest fullname)))
  98.  
  99. (complete 100)
  100. (message #ready fullname)
  101. (exit (quiet))
  102.